home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / freepo1a / freepo~1.frm (.txt) < prev    next >
Visual Basic Form  |  1999-10-12  |  2KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.Form frmporn 
  3.    BackColor       =   &H80000008&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Free Porn!"
  6.    ClientHeight    =   1935
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4860
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1935
  14.    ScaleWidth      =   4860
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton cmd2 
  17.       Caption         =   "Click Here!"
  18.       Height          =   495
  19.       Left            =   2760
  20.       TabIndex        =   1
  21.       Top             =   1200
  22.       Visible         =   0   'False
  23.       Width           =   1455
  24.    End
  25.    Begin VB.CommandButton cmd1 
  26.       Caption         =   "Click Here!"
  27.       Height          =   495
  28.       Left            =   480
  29.       TabIndex        =   0
  30.       Top             =   1200
  31.       Width           =   1455
  32.    End
  33.    Begin VB.Label Label1 
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   "Click Here For Free Porn!"
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   700
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H00FF0000&
  46.       Height          =   255
  47.       Left            =   1200
  48.       TabIndex        =   2
  49.       Top             =   480
  50.       Width           =   2175
  51.    End
  52. Attribute VB_Name = "frmporn"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  58. cmd1.Visible = False
  59. cmd2.Visible = True
  60. End Sub
  61. Private Sub cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  62. cmd1.Visible = True
  63. cmd2.Visible = False
  64. End Sub
  65.